home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / perl_browseable.nasl < prev    next >
Text File  |  2005-01-14  |  1KB  |  66 lines
  1. #
  2. # Copyright 2000 by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4.  
  5. if(description)
  6. {
  7.  script_id(10511);
  8.  script_bugtraq_id(1678);
  9.  script_version ("$Revision: 1.11 $");
  10.  script_cve_id("CVE-2000-0883");
  11.  name["english"] = "/perl directory browsable ?";
  12.  script_name(english:name["english"]);
  13.  
  14.  desc["english"] = "The /perl directory is browsable.
  15. This will show you the name of the installed common perl scripts and 
  16. those which are written by the webmaster and thus may be exploitable.
  17.  
  18. Solution : Make the /perl non-browsable (in httpd.conf or mod_perl.conf)
  19.  
  20. Risk factor : Low";
  21.  
  22.  
  23.  script_description(english:desc["english"]);
  24.  
  25.  summary["english"] = "Is /perl browsable ?";
  26.  
  27.  script_summary(english:summary["english"]);
  28.  
  29.  script_category(ACT_GATHER_INFO);
  30.  
  31.  
  32.  script_copyright(english:"This script is Copyright (C) 2000 Renaud Deraison");
  33.  
  34.  family["english"] = "CGI abuses";
  35.  script_family(english:family["english"]);
  36.  
  37.  script_dependencie("find_service.nes");
  38.  script_require_ports("Services/www", 80);
  39.  exit(0);
  40. }
  41.  
  42. #
  43. # The script code starts here
  44.  
  45. include("http_func.inc");
  46.  
  47. port = get_http_port(default:80);
  48.  
  49. if(get_port_state(port))
  50. {
  51.  data = http_get(item:"/perl/", port:port);
  52.  soc = http_open_socket(port);
  53.  if(soc)
  54.  {
  55.   send(socket:soc, data:data);
  56.   code = recv_line(socket:soc, length:1024);
  57.   buf = http_recv(socket:soc);
  58.   buf = tolower(buf);
  59.   must_see = "index of /perl";
  60.  
  61.   if((" 200 " >< code)&&(must_see >< buf))security_warning(port);
  62.   http_close_socket(soc);
  63.  }
  64. }
  65.  
  66.